1) Add "virtual;" in TBXToolPals.pas on line 108:

	function GetCellAt(X, Y: Integer; out Col, Row: Integer): Boolean; virtual;


2) Line 1009 in TBXLists.pas (procedure DrawItems) reads:

	Canvas.Brush.Color := clWindow;

   change it to:

	Canvas.Brush.Color := CurrentTheme.GetViewColor(PVT_LISTBOX);